Nautilus 1994 August/Nautilus CD Magazine Volume 4-8 August 1994 Windows Edition.mdf/setup/nautcd/mpt.sbk

Asymetrix ToolBook File | 1994-08-12 | 52KB | 936 lines

P*06T+
9,hw^.
5    136
    >=Px?
linkTBKFunctions
WM_SIZE
false
BinitSysArray
WM_SYSCOMMAND
initMPT
    wDiscConfigFile
strBadSetup
Unable to determine Startup Directory
false
szSysInfo
Unable to determine CD-ROM Drive.
wStartupDir
wExtension
wAppName
wIndexCaption
wVersionID
wRomDrive
wIndexApp
iniString
romDrive
findRomDrive
wShortName
wConfigFile
extension
STARTUP
startupDir
initSysArray
strBadSetup
tb30dos.dll
tb30win.dll
TB30DLG.DLL is missing from the working directory
false
szSysInfo
tb30dlg.dll
wStartupDir
copyFile
,    TARTU-"
removeFile
,    TTART-"
createDirectory
getFileAttributes
,    Uonfig
getFileSize
getFileDate
,    UJ:K
setFileAttributes
KrK-"
getCurrentDrive
getCurrentDirectory
getDriveList
UsInfg
getFileList
getFileOnlyList
getDirectoryOnlyList
setCurrentDirectory
getCDDriveList
setCurrentDrive
TB30WIN.DLL is missing from the working directory
+!popMenu
openFileDlg
openDlg
saveAsDlg
chooseDirectoryDlg
default
or was not found on your path.
TB30DOS.DLL is missing from the working directory
linkTBKFunctions
.&+    +E
+    ,    #?
the right
Unknown or unsupported media.
configFile
Media Viewers
szSysInfo
mediaType
mediaViewer
statusMsg
isFile
Cannot find
disc is in the drive.
wRomDrive
mediaType
Media Viewer (file MEDIA.VWR) not present or not properly initialized.
wAppName
continueMsg
playMedia
iniString
Unsupported media
E<playMCI
CDAudio
default
. Please make certain
bkMediaViewer
szSysInfo
szMediaType
dwMediaLength
bIsControls
bInPlace
szFileName
mediaType
szExec
szMediaSource
wRomDrive
stMediaSize
wAppName
playMedia
Click to continue...
continueMsg
.&+    +E
+    ,    #?
the right
statusMsg
szSysInfo
mediaViewer
Opening Media...
isFile
Cannot find
disc is in the drive.
wRomDrive
Media Viewer (file MEDIA.VWR) not present or not properly initialized.
wAppName
continueMsg
E<playMCI
default
. Please make certain
playMCI
bPlayPageMedia
bLeavePlayed
single
rbLeavePageMedia
pgNotify
bEnterPageMedia
bEnterPlayed
enterPage
bPlayPageMedia
enterPage
0playPageMedia
pgNotify
bEnterPlayed
timerNotify
bPlayPageMedia
bLeavePlayed
0playPageMedia
leavePage
bEnterPlayed
leavePage
+    ,    #>
+    ,    #>
rbLeavePageMedia
send playMCI "
bInterrupted
false
enterPage
tenterPageMediaSource
pgNotify
5leavePageMediaRects
szIdleCmds
leavePage
fleavePageMediaSource
Reader
bEnterPageMedia
CenterPageMediaRects
playPageMedia
aborted
szIdleCmds
MCINotify
WaveAudio
Movie
SfileExtension
Bitmap
AVI,MOV,FLI,FLC,MMM
BMP,DIB,GIF,PCX,TIF,WMF
Sequencer
TXT,DOC
Unsupported media
Rich Text Format
CDAudio
mediaType
+    ,    #>
+    ,    #>
+    ,    #?
+    ,    #?
cFindWindowByCaption
strBadSetup
Cannot run
startupDir
discIssueID
szSysInfo
PbaseName
isFile
wAppName
wIndexCaption
wIndexApp
Yield
Cannot open DDE Link to
BringWindowToTop
Index.
ShowWindow
openIndex
w,    #>
w,    #>
w,    #>
w,    #>
w,    #>
NavBar
startupBookName
szSysInfo
wStartupDir
Prefs
openPrefs
WM_SIZE
shutDown
WWM_SYSCOMMAND
WM_SYSCOMMAND
Do you really want to exit?
preference
06cleanUp
quitPrompt
shutDown
cleanUp
STARTUP.EXE
startupBookName
w,    "@
startupBookName
isStartup
w,    "@
w,    #>
.&+    +E
w,    #>
w,    #>
strBadSetup
not found.
startupBookName
szSysInfo
wStartupDir
isFile
default
openStartup
-",    #?
w,    #>
sysError =
startupDir
Error logged on
sysErrorNumber =
isFile
EofileOnly
SsysInfo
Error:
in file
logError
+    ,    #>
+    ,    #>
+    ,    #>
+    ,    #>
.&+    +E
,All Files (*.*),*.*
strWrongVersion
. It may be an incompatible or corrupted file.
szSysInfo
versionID
wExtension
openFileDlg
wVersionID
wRomDrive
default
wShortName
Cannot open
,ToolBook Books (*.?bk),*.?bk,All Files (*.*),*.*
MPTMEDIA.SBK
Open Magazine
openMagazine
myPath
szSysInfo
wAppName
appName
szSysInfo
wShortName
shortName
szSysInfo
wVersionID
versionID
version
=PdiscIniString
DISC INFO
discVersionID
szSysInfo
wConfigFile
configFile
    wDiscConfigFile
szSysInfo
discConfigFile
szSysInfo
wIndexApp
indexApp
szSysInfo
wIndexCaption
indexCaption
szSysInfo
wRomDrive
romDrive
szSysInfo
wStartupDir
startupDir
+    ,    /
setCurrentDirectory
szSysInfo
wStartupDir
setCurrentDrive
zpathOnly
setStartupDirectory
szSysInfo
wExtension
extension
szSysInfo
wRomDrive
romDrive
0wgetCDDriveList
wConfigFile
STARTUP
,writeIniItem
findRomDrive
+    ,    >
+    ,    #>
    wDiscConfigFile
disc.ini
szSysInfo
isFile
wRomDrive
iniString
discIniString
cover
=PdiscIniString
DISC INFO
coverBitmap
issueName
=PdiscIniString
DISC INFO
discIssueName
issueID
=PdiscIniString
DISC INFO
discIssueID
szSysInfo
iniString
Prefs
wConfigFile
preference
Wrong or missing disc! Please replace and try again.
strDiscError
+    ,    #?
+    ,    #?
Wrong
szSysInfo
version!
to the latest version of
wAppName
wVersionID
is installed and you are attempting to open a
You may wish to upgrade
file.
Version
strWrongVersion
+    ,    #?
Wrong
szSysInfo
version!
wAppName
Do you wish to perform an upgrade now?
disc is in the drive.
wVersionID
is installed and a
X6upgrade
Version
wrongDiscVersion
+    ,    #>
+    ,    #?
szSysInfo
szSysInfo
szExec
wRomDrive
wAppName
isFile
wAppName
wRomDrive
Yield
setup.exe upgrade.ins
Upgrade program not found. Please make sure the latest
disc is in your CD-ROM drive.
setup.exe
upgrade
Please run Setup to correct this problem.
strBadSetup
+    ,    #?
w,    #>
Copyright(c)
szSysInfo
Portions Copyright(c)
, Metatec Corp.
wAppName
wVersionID
Metatec Corp.
SsysInfo
All rights reserved.
Version
helpAbout
.chooseDirectoryDlg
Select Directory
selectDir
umber szVe*
P*06T+
9,hw^.
5    136
    >=Px?
     %"?
HxuJlxA
Arial
DriveListViewer
Page id 2
tools
Page id 4
Tools
Reader
Open &Tools Window
closeWindow
Window
~= Reader
"Open &Tools
MPT System Book
Contents Copyright(c) 1994, Metatec Corp.
&File
&Open...    Ctrl+O
&Save    Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages...    Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit    Alt+F4
&Edit
&Undo    Ctrl+Z
Cu&t    Ctrl+X
&Copy    Ctrl+C
&Paste    Ctrl+V
paste
C&lear    Del
clear
Select &All    Shift+F9
selectall
Select Pa&ge    Shift+F12
selectpage
&Size to Page    F11
sizetopage
F&ind...    F5
search
Re&place...
replace
A&uthor    F3
author
&Text
&Character...    F6
character
&Paragraph...    F7
paragraph
&Regular    Ctrl+Space
regular
&Bold    Ctrl+B
&Italic    Ctrl+I
italic
&Underline    Ctrl+U
underline
Stri&keout    Ctrl+K
strikeout
Superscrip&t/Subscript
super/subscript
&Normal Script
normalscript
Su&bscript    Ctrl+L
subscript
Su&perscript    Ctrl+Shift+L
superscript
&Show Hotwords    F9
showhotwords
&Page
&Next    Alt+Right
&Previous    Alt+Left
previous
&First    Alt+Up
first
&Last    Alt+Down
&Back    Shift+F2
&History...    Ctrl+F2
history
N&ew Page    Ctrl+N
newpage
&Help
&Contents    F1
contents
Status &Bar    F12
statusbar
Small Fonts
`v/n/n/
initMPT szAppName,szShortName,szVersionID,szConfigFile,szDiscConfigFile, \
            szIndexApp,szIndexCaption
xinitSysArray(
    -- linkTBKFunctions CAN
the event
cannot load a DLL, so test
    -- Trap WM_SYSCOMMAND
SC_CLOSE so that
    -- shutDown
 be called
perform cleanup
    translateWindowMessage
windowHandle
        on 0x0005
WM_SIZE
        on 0x0112
szSysInfo[]
gwAppName,wShortName,wVersionID,wConfigFile,wDiscConfigFile
gwRomDrive,wStartupDir,wExtension,wIndexApp,wIndexCaption
y         = 1
z        = 2
x        = 3
v        = 4
s    = 5
E        = 6
D    = 7
w        = 8
v        = 9
s        = 10
]         =
]        =
]        =
]        =
iniString(
],"STARTUP","romDrive","",256)
findRomDrive()
strBadSetup("Unable
determine CD-ROM
startupDir","",256)
 Directory")
extension","ncd",4)
szDLL,szPath
gwTries
Zlogical bSysSuspend
A = "tb30dos.dll"
V = 1
        linkDLL
copyFile(
removeFile(
createDirectory(
getFileAttributes(
\getFileSize(
getFileDate(
setFileAttributes(
getCurrentDrive()
getCurrentDirectory(
getDriveList()
getFileList(
getFileOnlyList(
getDirectoryOnlyList(
setCurrentDirectory(
getCDDriveList()
setCurrentDrive(
 = sysToolBookDirectory &
 = 4)
TB30DOS.
missing
working directory" && \
xfound on your path.")
o= default
 = "tb30win.
popMenu(
TB30WIN.
 = "tb30dlg.
openFileDlg(
openDlg(
saveAsDlg(
        -- *** DANGER, WILL ROBINSON!! chooseDirectoryDlg() DOESN'T WORK IN MTB30EA!!     *** --
        -- *** IT
PKILL YOUR WINDOWS SESSION
d    LEAVE MUCH SMEGMA IN MEMORY!        *** --
        -- *** GET US OUT OF HERE, SCOTTY!
*** --
TB30DLG.
playMedia szMediaSource,bInPlace,dwMediaLength,stMediaSize,bIsControls
szExec,szFileName,szMediaType
8bkMediaViewer
xisType("
)    -- *** Not CDAudio *** --
    ] &
xisFile(
"Cannot
" &&
 & ". Please
acertain" && \
" &&
] && "disc
drive."
 = mediaType(
 = "Unsupported
statusMsg
"Unknown
unsupported
configFile(),"
Viewers",
",256)
 <> "
" &&
" &&
    -- *** mediaViewer()
a handler
MEDIA.VWR which returns its
p*** --
s (file
xpresent
xproperly initialized."
    -- ***
 uses
whether
*** --
    -- *** needs
poll
device element
length
*** --
continueMsg()
playMCI
"Click
d..."
fPlacement
"Opening
..."
)    -- ***
" &&
 & ".
" &&
] && "
        -- ***
p*** --
pgNotify
PlayPageMedia,bEnterPlayed,bLeavePlayed
        bPlayPageMedia =
bEnterPageMedia
bLeavePageMedia
timerStart("single",500,50,
timerNotify wTimerID
playPageMedia "
{pageEvent
szIdleCmds[]
szSources[]
Zstack stRects[]
        bInterrupted =
q = "
~= Reader
p = enterPageMediaSource
1] <>
 = enterPageMediaRects
reset
dimensions(
i] = "
""" &
i] & """,""" & \
i] &
 = leavePageMediaSource
1] <>
 = leavePageMediaRects
i] = "
""" &
i] & """,""" & \
i] &
MCINotify szStatus,szOperation,szDevice
( = "aborted"
0 = "
fileExtension(
= "WAV"
"WaveAudio"
= "MID"
"Sequencer"
"BMP,DIB,GIF,PCX,TIF,WMF"
"Bitmap"
"AVI,MOV,FLI,FLC,MMM"
"Movie"
"TXT,DOC"
"Text"
= "RTF"
"Rich
 Format"
openIndex szDir,
ghwnd
First
szDDEName
    bFirst =
FindWindowByCaption(0,
() &
() &
Yield()
dn(0,
" &&
] && "
 = "\"
discIssueID(),
 = baseName(
r<> "OK"
DDE Link
" &&
] && "
keepRemote
ShowWindow(
BringWindowToTop(
openPrefs
] & startupBookName())
    parentHandle
4 = \
"NavBar"
%modal
,wMsg,wParam,lParamLo,lParamHi
, = 0xF060
szRetVal
     = preference("quitPrompt","
0 = "
"Do you really want
f"Yes"
cleanUp
    -- simple trap
, mag
app-specific sysBook didn't
    -- *** Danger, Will Robinson! Hard-coded filename *** --
.EXE"
isStartup
openStartup
] & (
] & (
" && (
 && "
logError szError,
szLogFile,szSysError,szLogString
nErrorNumber
 = sysErrorNumber
fileOnly(
() &
".err"
~(".",
        seekFile
logged on" &&
p&& "
)" &&
" && \
:" &&
 =" &&
r=" &&
sysInfo() &
openMagazine
,szFilters
c"MPTMEDIA.SBK")
] && \
"(*." &
] & "),*." &
] & \
 Books (*.?bk),*.?bk,All Files (*.*),*.*"
] && \
"(*." &
] & "),*." &
] & \
","",
versionID
" &&
 & ". It may be
incompatible
corrupted
strWrongVersion(
    -- *** May be opening magazine
tools
e*** --
myPath
szTemp
) = "\"
appName
shortName
discVersionID
discIniString("DISC INFO","
","",16)
discConfigFile
indexApp
indexCaption
setStartupDirectory
 success
k#] =
z#] = pathOnly(
<> -3
 = TRUE
& ":\"
$] =
writeIniItem(
 section, entry,
, bufSize
szDiscIni
gwBufSize
!%] & "
.ini"
@ = (
I%] &
 = 256
coverBitmap
","",256)
discIssueName
issueName","",64)
issueID","",16)
 szPref,szDefault
7,256)
strDiscError
replace
szInstalled,
%"0.0"
%"0.0"
" &&
'] && "
!" &
)" &&
x && "
installed
are attempting
a" && \
)" &&
) && "
k& "You
wish
upgrade" && \
)latest
" &&
V(] & "."
wrongDiscVersion
szDialog
%"0.0"
%"0.0"
: = "
" &&
(] && "
!" &
" &&
 && "
a" && \
" &&
;+ && "
V+ >
k& "Do
 now?"
)] & "setup.exe")
i  = "
" &&
)] && "
.ins" &
"Upgrade program
asure
" && \
*] && "
) str
correct
problem."
-- *** For NautilusCD, NCD.SBK
ca helpAbout
shows *** --
-- *** a
contained
H bitmap
    *** --
UszCompany
szHelpAbout,szYear
%"y"
+] && "
." &&
+] &
            "Copyright(c)" &&
f & ","
"Portions
 & ", Metatec Corp."
 && "
rights reserved." &
selectDir
$"Select
*,".")
ncdVGA











`hgag<
ggagg
agagg
ggagh
R...Y
S.YY...Y
.R5YR..
Y5R....}
_....
YYYY....
YR...}
YR......
.......Y
R......Y
Y.....Y
YR..Y
P*06T
alinkTBKFunctions
WM_SIZE
zs3K;3Jc+
%0G''
F6UFW
BVFW&
&W6eDirectoryDlg
Select Directory
selectDir
umber szVe*